home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / wildcat / sfpage11.zip / SF-PAGE.WCX (.txt) < prev   
Wildcat! WCX  |  1996-05-22  |  7KB  |  409 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  7001 bytes  03/09/122  08:19:12am
  3. '! Code Segment Size  :4884 bytes
  4. '! Data Segment Size  :4705 bytes
  5. '! String Segment Size:2117 bytes
  6. '! Compiled with WCC version 4.11
  7.  
  8.       Declare Function Func1442(s65534 As String, i65532 As Integer) As String
  9.       Declare Sub Sub1595
  10.  
  11.       Dim s4463(0 To 5) As String
  12.       Dim s4487 As String
  13.       Dim s4491 As String
  14.       Dim i4495 As Integer
  15.       Dim i4497 As Integer
  16.       Dim i4499 As Integer
  17.       Dim i4501 As Integer
  18.       Dim i4503 As Integer
  19.       Dim i4505 As Integer
  20.       Dim s4507 As String
  21.       Dim i4511 As Integer
  22.       Dim s4513 As String
  23.       Dim s4517 As String
  24.       Dim s4521(0 To 26) As String
  25.       Dim s4629(0 To 4) As String
  26.       Dim s4649(0 To 8) As String
  27.       Dim l4689 As Long
  28.       Dim l4693 As Long
  29.       Dim l4697 As Long
  30.       Dim l4701 As Long
  31.  
  32.       CarrierCheck(-1)
  33.       s4487 = "@71@"
  34.       s4491 = "@3F@"
  35.       s4517 = MakeWild.BBSName
  36.       s4629(1) = "/"
  37.       s4629(2) = "-"
  38.       s4629(3) = "\"
  39.       s4629(4) = "|"
  40.       s4649(1) = "@08@"
  41.       s4649(2) = "@09@"
  42.       s4649(3) = "@0A@"
  43.       s4649(4) = "@0B@"
  44.       s4649(5) = "@0C@"
  45.       s4649(6) = "@0D@"
  46.       s4649(7) = "@0E@"
  47.       s4649(8) = "@0F@"
  48.       s4521(1) = "P"
  49.       s4521(2) = "a"
  50.       s4521(3) = "g"
  51.       s4521(4) = "i"
  52.       s4521(5) = "n"
  53.       s4521(6) = "g"
  54.       s4521(7) = " "
  55.       s4521(8) = "T"
  56.       s4521(9) = "h"
  57.       s4521(10) = "e"
  58.       s4521(11) = " "
  59.       s4521(12) = "A"
  60.       s4521(13) = "l"
  61.       s4521(14) = "m"
  62.       s4521(15) = "i"
  63.       s4521(16) = "g"
  64.       s4521(17) = "h"
  65.       s4521(18) = "t"
  66.       s4521(19) = "y"
  67.       s4521(20) = " "
  68.       s4521(21) = "S"
  69.       s4521(22) = "y"
  70.       s4521(23) = "s"
  71.       s4521(24) = "O"
  72.       s4521(25) = "p"
  73.       s4521(26) = " "
  74.       MorePrompt(0)
  75.       Sub1595
  76.  
  77. '! Called 3 times
  78.       Function Func1442(s65534 As String, i65532 As Integer) As String
  79.         Dim i65522 As Integer
  80.         Dim s65524 As String
  81.  
  82.         i65522 = i65532 - Len(s65534) / 2
  83.         s65524 = Space(i65522) + s65534 + Space(i65522)
  84.         If Len(s65524) > i65532 Then
  85.           s65524 = Mid(s65524, 1, 1) + Mid(s65524, 3, Len(s65524) - 2)
  86.         End If
  87.  1572   Func1442 = s65524
  88.       End Function
  89.  
  90. '! Called 1 time
  91.       Sub Sub1595
  92.         Dim l65494 As Long
  93.         Dim l65498 As Long
  94.         Dim l65502 As Long
  95.         Dim i65506 As Integer
  96.         Dim i65508 As Integer '! Temporary
  97.         Dim i65510 As Integer '! Temporary
  98.         Dim s65512 As String '! Temporary
  99.         Dim i65516 As Integer '! Temporary
  100.         Dim s65518 As String '! Temporary
  101.         Dim o65522 As Boolean
  102.         Dim l65523 As Long
  103.         Dim s65527 As String
  104.         Dim b65535 As Byte
  105.  
  106.         Do
  107.           Do
  108.             Do
  109.               Do
  110.                 Do
  111.  1604             MorePrompt(0)
  112.                   s4463(1) = "  Leave Comment     "
  113.                   s4463(2) = "  Normal Page       "
  114.                   s4463(3) = "  Super Page        "
  115.                   s4463(4) = "  Quit to BBS       "
  116.                   s4463(5) = "  GoodBye/Logoff    "
  117.                   i4499 = 8
  118.                   i4511 = 5
  119.                   i4495 = 29
  120.                   i4497 = i4499
  121.                   i4501 = i4499 + i4511 * 2 - 2
  122.                   Color 7, 0
  123.                   Cls 
  124.                   s4513 = Func1442(("@08@SF-Page by SureFire SoftWare  517-773-7717"), (80))
  125.                   Print
  126.                   Print s4513
  127.                   Print
  128.                   Print "@0F@                  @7F@█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@78@▄@0F@"
  129.                   Print "@0F@                  @7F@█                                    @71@  @78@█@0F@"
  130.                   Print "@0F@                  @7F@█                                    @71@  @78@█@0F@"
  131.                   Print "@0F@                  @7F@█                                    @71@  @78@█@0F@"
  132.                   Print "@0F@                  @7F@█                                    @71@  @78@█@0F@"
  133.                   Print "@0F@                  @7F@█                                    @71@  @78@█@0F@"
  134.                   Print "@0F@                  @7F@█                                    @71@  @78@█@0F@"
  135.                   Print "@0F@                  @7F@█                                    @71@  @78@█@0F@"
  136.                   Print "@0F@                  @7F@█                                    @71@  @78@█@0F@"
  137.                   Print "@0F@                  @7F@█                                    @71@  @78@█@0F@"
  138.                   Print "@0F@                  @7F@█                                    @71@  @78@█@0F@"
  139.                   Print "@0F@                  @7F@█                                    @71@  @78@█@07@"
  140.                   Print "@07@                  @7F@█                                    @71@  @78@█@07@"
  141.                   Print "@07@                  @7F@▀@78@▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█@07@"
  142.                   Print
  143.                   s4513 = Func1442(("@08@8 = Move Up  /  2 = Move Down"), (81))
  144.                   Print s4513
  145.                   Locate 5, 20
  146.                   Print "@70@╔════════════════════════════════════@7F@╗@07@"
  147.                   Locate 6, 20
  148.                   Print "@70@║                                    @7F@║@07@"
  149.                   Locate 7, 20
  150.                   Print "@70@╚@7F@════════════════════════════════════╝@07@"
  151.                   s4513 = s4517 + " @70@- @7B@Super Page!"
  152.                   s4513 = Func1442(s4513, (44))
  153.                   Locate 6, 21
  154.                   Print "@75@"; s4513; "@71@"
  155.  2208             For i4503 = 1 To i4511 Step 1
  156.                     Locate i4497, i4495
  157.                     Print s4487; s4463(i4503)
  158.                     Print
  159.                     i4497 = i4497 + 2
  160.                   Next
  161.  2348             i4497 = i4499
  162.                   i4505 = 1
  163.                   Locate i4497, i4495
  164.                   Print s4491; s4463(i4505)
  165.                   Do
  166.  2416               s4507 = InKey(1213417543)
  167.                     If s4507 = "2" Then
  168.                       GoSub 2527
  169.                     End If
  170.  2451               If s4507 = "8" Then
  171.                       GoSub 2682
  172.                     End If
  173.  2474               If s4507 = Chr(13) Then
  174.                       GoTo 3080
  175.                     End If
  176.  2497             Loop Until s4507 = "X" Or s4507 = "x"
  177.  2527             Locate i4497, i4495
  178.                   If i4497 = i4501 Then
  179.                   Else
  180.  2564               Print s4487; s4463(i4505)
  181.                     i4497 = i4497 + 2
  182.                     i4505 = i4505 + 1
  183.                     Locate i4497, i4495
  184.                     Print s4491; s4463(i4505)
  185.                     Return 
  186.  2682               Locate i4497, i4495
  187.                     If i4497 = i4499 Then
  188.                     Else
  189.  2719                 Print s4487; s4463(i4505)
  190.                       i4497 = i4497 - 2
  191.                       i4505 = i4505 - 1
  192.                       Locate i4497, i4495
  193.                       Print s4491; s4463(i4505)
  194.                       Return 
  195.                     End If
  196.  2837               Locate i4497, i4495
  197.                     Print s4487; s4463(i4505)
  198.                     i4497 = i4501
  199.                     i4505 = i4511
  200.                     Locate i4497, i4495
  201.                     Print s4491; s4463(i4505)
  202.                     Return 
  203.                   End If
  204.  2960             Locate i4497, i4495
  205.                   Print s4487; s4463(i4505)
  206.                   i4497 = i4499
  207.                   i4505 = 1
  208.                   Locate i4497, i4495
  209.                   Print s4491; s4463(i4505)
  210.                   Return 
  211.  3080             If (i4505 = 1) = 0 Then GoTo 3113
  212.                   Color 7, 0
  213.                   Cls 
  214.                   Comment 
  215.                 Loop
  216.  3113           If (i4505 = 2) = 0 Then GoTo 3215
  217.                 Color 7, 0
  218.                 Cls 
  219.                 Print
  220.                 Print "@0A@"; MakeWild.SysopName; ","
  221.                 Print
  222.                 Print "@0D@    "; User.Name; " @0B@ Is Paging You!"
  223.                 Print "@0E@"
  224.                 PageSysop 
  225.               Loop
  226.  3215         If (i4505 = 3) = 0 Then GoTo 4764
  227.               b65535 = 0
  228.               If Exists(ProgPath + "Sf-Page.Pwd") Then
  229.                 Open ProgPath + "Sf-Page.Pwd" For Input As 1
  230.                 Input #1, s65527
  231.                 Close 1
  232.               End If
  233.  3292         Color 7, 0
  234.               Cls 
  235.               Print
  236.               Print
  237.               If (s65527 <> "") = 0 Then GoTo 3417
  238.               s4513 = UCase(InputMask("@0B@So @09@What's @0E@The @0D@SuperPage @0A@Password? : @0C@", "XXXXXXXXXXXXXXX", "", 1213417543))
  239.               If UCase(s4513) = UCase(s65527) Then
  240.                 GoTo 3417
  241.                 GoTo 3417
  242.               End If
  243.  3386         Print
  244.               Print "@BELL@@0C@WRONG!.......@BELL@@BELL@"
  245.               Print
  246.               Print "@0A@Back To The Menu You Go!"
  247.               WaitEnter 
  248.             Loop
  249.  3417       MorePrompt(0)
  250.             Color 7, 0
  251.             Cls 
  252.             Print
  253.             Print
  254.             Do
  255.  3435         GoSub 4355
  256.               Sound 676, 0.46
  257.               GoSub 4355
  258.               Sound 804, 0.34
  259.               GoSub 4355
  260.               Sound 676, 0.23
  261.               GoSub 4355
  262.               Sound 676, 0.11
  263.               GoSub 4355
  264.               Sound 902, 0.23
  265.               GoSub 4355
  266.               Sound 676, 0.23
  267.               GoSub 4355
  268.               Sound 602, 0.23
  269.               GoSub 4355
  270.               Sound 676, 0.46
  271.               GoSub 4355
  272.               Sound 1012, 0.34
  273.               GoSub 4355
  274.               Sound 676, 0.23
  275.               GoSub 4355
  276.               Sound 676, 0.11
  277.               GoSub 4355
  278.               Sound 1071, 0.23
  279.               GoSub 4355
  280.               Sound 1012, 0.23
  281.               GoSub 4355
  282.               Sound 804, 0.23
  283.               GoSub 4355
  284.               Sound 676, 0.23
  285.               GoSub 4355
  286.               Sound 1012, 0.23
  287.               GoSub 4355
  288.               Sound 1351, 0.23
  289.               GoSub 4355
  290.               Sound 676, 0.11
  291.               GoSub 4355
  292.               Sound 602, 0.23
  293.               GoSub 4355
  294.               Sound 602, 0.11
  295.               GoSub 4355
  296.               Sound 506, 0.23
  297.               GoSub 4355
  298.               Sound 758, 0.23
  299.               GoSub 4355
  300.               Sound 676, 0.46
  301.               GoSub 4355
  302.               Delay 0.46
  303.               GoSub 4355
  304.               Sound 338, 0.11
  305.               GoSub 4355
  306.               Sound 301, 0.23
  307.               GoSub 4355
  308.               Sound 253, 0.23
  309.               GoSub 4355
  310.               Sound 225, 0.23
  311.               GoSub 4355
  312.               Sound 676, 0.46
  313.               GoSub 4355
  314.               Sound 804, 0.34
  315.               GoSub 4355
  316.               Sound 676, 0.23
  317.               GoSub 4355
  318.               Sound 676, 0.11
  319.               GoSub 4355
  320.               Sound 902, 0.23
  321.               GoSub 4355
  322.               Sound 676, 0.23
  323.               GoSub 4355
  324.               Sound 602, 0.23
  325.               GoSub 4355
  326.               Sound 676, 0.46
  327.               GoSub 4355
  328.               Sound 1012, 0.34
  329.               GoSub 4355
  330.               Sound 676, 0.23
  331.               GoSub 4355
  332.               Sound 676, 0.11
  333.               GoSub 4355
  334.               Sound 1071, 0.23
  335.               GoSub 4355
  336.               Sound 1012, 0.23
  337.               GoSub 4355
  338.               Sound 804, 0.23
  339.               GoSub 4355
  340.               Sound 676, 0.23
  341.               GoSub 4355
  342.               Sound 1012, 0.23
  343.               GoSub 4355
  344.               Sound 1351, 0.23
  345.               GoSub 4355
  346.               Sound 676, 0.11
  347.               GoSub 4355
  348.               Sound 602, 0.23
  349.               GoSub 4355
  350.               Sound 602, 0.11
  351.               GoSub 4355
  352.               Sound 506, 0.23
  353.               GoSub 4355
  354.               Sound 758, 0.23
  355.               GoSub 4355
  356.               Sound 676, 0.46
  357.               GoSub 4355
  358.               b65535 = b65535 + 1
  359.             Loop Until InKey(1213417543) <> "" Or b65535 >= 3
  360.             GoTo 4735
  361.  4355
  362.  4376       For l65523 = 1 To 2 Step 1
  363.               l4693 = l4693 + 1
  364.               If l4693 > 4 Then
  365.                 l4693 = 1
  366.               End If
  367.  4462         l4689 = l4689 + 1
  368.               If l4689 > 8 Then
  369.                 l4689 = 1
  370.               End If
  371.  4498         l4701 = l4701 + 1
  372.               If l4701 > 26 Then
  373.                 l4701 = 1
  374.               End If
  375.  4534         l4697 = l4697 + 1
  376.               If l4697 > 26 Then
  377.                 l4697 = 1
  378.               End If
  379.  4570         Locate 4, l4701
  380.               Print s4649(l4689); s4521(l4697)
  381.               Locate 4, 28
  382.               Print s4649(l4689); s4629(l4693)
  383.             Next
  384.  4734       Return 
  385.  4735       Print
  386.             Print "@0F@The@0F@ Sysop has been Super Paged@09@!"
  387.             Print "@0F@Wait a few minutes to see if he is around@09@!"
  388.             WaitEnter 
  389.           Loop
  390.  4764     If i4505 = 4 Then
  391.             End 
  392.           End If
  393.  4780     If (i4505 = 5) = 0 Then GoTo 4869
  394.           Color 7, 0
  395.           Cls 
  396.           Print
  397.           Print
  398.           o65522 = InputYesNo("@0B@Are @09@You @0E@Sure @0D@You @0A@Want @0B@To @09@Leave @0E@This @0D@Fine @0A@BBS? @0B@(y/@0F@N) : @0C@", 0)
  399.           If (o65522 = 0) = 0 Then GoTo 4856
  400.           Print
  401.           Print "@0B@Good Decision"
  402.           WaitEnter 
  403.         Loop
  404.  4856   DisplayFile("GoodBye")
  405.         HangUp 
  406.         End 
  407.  4869
  408.       End Sub
  409.